home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 10 (1991-10)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 12, No. 10 (1991-10)(MindCraft Publishing)(Side A)[a].po / CREATE.SAMPLE.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  30 lines
  1. 1  REM  ************************
  2. 2  REM  * CREATE.SAMPLE        *
  3. 3  REM  * BY Charles T. Hill   *
  4. 4  REM  * Copyright 1991 by    *
  5. 5  REM  * MindCraft Publ. Corp.*
  6. 6  REM  * Lincoln, MA  01773   *
  7. 7  REM  ************************
  8. 10  REM  Make a sample text file for testing FILE.SIFTER
  9. 20 D$ =  CHR$(4):P$ = "SAMPLE"
  10. 30  PRINT "Where do you wish to save SAMPLE?"
  11. 40  INPUT "Slot number: ";SN
  12. 50  INPUT "Drive number: ";DN
  13. 60  REM  Input is simple because program is run only once
  14. 70  PRINT D$;"prefix ,S";SN;",D";DN
  15. 80  PRINT D$"open";P$: PRINT D$"write";P$
  16. 90  PRINT  SPC( 5);"This is a sample text file"
  17. 100  PRINT "for testing FILE.SIFTER."
  18. 110  PRINT "The next line is blank"
  19. 120  PRINT 
  20. 130  PRINT "and so are the next two lines."
  21. 140  PRINT : PRINT 
  22. 150  PRINT  SPC( 5);"These two lines continue, but"
  23. 160  PRINT "the next three lines are blank."
  24. 170  PRINT : PRINT : PRINT 
  25. 180  PRINT  SPC( 5);"The last line has"
  26. 190  PRINT "the control characters ";
  27. 200  PRINT  CHR$(7);" and "; CHR$(8);".": REM  CTRL-G and CTRL-H
  28. 210  PRINT D$;"close";P$
  29. 220  PRINT "SAMPLE has been written"
  30. 230  END